home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / demovers / scripter / demo / finder.sic < prev    next >
Text File  |  1998-09-26  |  836b  |  24 lines
  1. /*
  2.  * Dieser Script steuert Finder fern und überredet ihn,
  3.  * auf den Laufwerken C: bis M: alle *.bak zu suchen;
  4.  * Anschließend werden alle gefundenen Dateien selektiert und
  5.  * die so entstandene Liste ins Clipboard kopiert.
  6.  * (An dieser Stelle könnte man sie auch alle löschen lassen oder
  7.  * ähnliches)
  8.  */
  9.  
  10. if (address("finder")) {
  11.     tofront();            // Finder nach vorne holen
  12.     drives("c-m");                  // ein paar Laufwerke selektieren
  13.     FilePat("*.bak");               // Maske für Dateinamen
  14.     Options("K");                   // in Katalogen suchen (alle andern Opt. aus)
  15.     new();                // evtl. vorhandene Liste löschen
  16.     if (FindFile() == 0) {        // Suche starten
  17.         do {
  18.             wait(200);
  19.         } while(Busy());    // warten, bis die Suche beendet ist
  20.         SelectAll();        // alle Treffer selektieren
  21.         Copy();         // und ins Clipboard schreiben
  22.     }
  23. }
  24.